(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     22080,        789]
NotebookOptionsPosition[     16716,        598]
NotebookOutlinePosition[     17328,        622]
CellTagsIndexPosition[     17249,        617]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["0.0", "HistoryData",
  CellTags->"New"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised"]
}], "History",
 CellID->1247902091],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507],

Cell["MathMR", "Categorization",
 CellLabel->"Paclet Name",
 CellID->605800465],

Cell["MathMR`", "Categorization",
 CellLabel->"Context",
 CellID->468444828],

Cell["MathMR/ref/NVelectronSpin", "Categorization",
 CellLabel->"URI"]
}, Closed]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294],

Cell["XXXX", "Keywords",
 CellID->1164421360]
}, Closed]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771],

Cell["XXXX", "Details",
 CellLabel->"Lead",
 CellID->670882175],

Cell["XXXX", "Details",
 CellLabel->"Developers",
 CellID->350963985],

Cell["XXXX", "Details",
 CellLabel->"Authors",
 CellID->8391405],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->3610269],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->401364205],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->350204745],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->732958810],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->222905350],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365]
}, Closed]],

Cell[CellGroupData[{

Cell["NVelectronSpin", "ObjectName",
 CellID->1224892054],

Cell[TextData[{
 Cell["   ", "ModInfo"],
 Cell[BoxData[
  RowBox[{"NVelectronSpin", "[", 
   RowBox[{"nvdir", ",", "b", ",", "\[Theta]", ",", "\[Phi]"}], "]"}]], 
  "InlineFormula"],
 " \[LineSeparator]Electron spni Hamiltonian of a single NV center in \
direction ",
 Cell[BoxData["nvdir"], "InlineFormula",
  FormatType->"StandardForm"],
 ", and magnetic field ",
 Cell[BoxData[
  RowBox[{"{", 
   RowBox[{"b", ",", "\[Theta]", ",", "\[Phi]"}], "}"}]], "InlineFormula",
  FormatType->"StandardForm"],
 "."
}], "Usage",
 CellChangeTimes->{{3.527230276532415*^9, 3.527230355783197*^9}},
 CellID->982511436],

Cell["Unit: k rad/s", "Notes",
 CellChangeTimes->{{3.527230369890469*^9, 3.527230373354046*^9}},
 CellID->1067943069]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057],

Cell["XXXX", "Tutorials",
 CellID->341631938]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535],

Cell["XXXX", "RelatedLinks",
 CellID->1038487239]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704],

Cell["XXXX", "SeeAlso",
 CellID->929782353]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248],

Cell["XXXX", "MoreAbout",
 CellID->1665078683]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151],

Cell[TextData[{
 "An NV center pointing to the ",
 Cell[BoxData[
  RowBox[{"[", 
   RowBox[{"1", ",", "1", ",", "1"}], "]"}]], "InlineFormula",
  FormatType->"StandardForm"],
 " direction, which is assumed to be the ",
 Cell[BoxData["z"], "InlineFormula",
  FormatType->"StandardForm"],
 " direction."
}], "ExampleText",
 CellChangeTimes->{{3.527230447178139*^9, 3.527230521120103*^9}},
 CellID->8764],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Chop", "[", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"2", "\[Pi]", "*", 
      SuperscriptBox["10", "6"]}]], 
    RowBox[{"NVelectronSpin", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "1", ",", "1"}], "}"}], "/", 
       SqrtBox["3"]}], ",", "0.00001", ",", 
      RowBox[{"0.0", "Degree"}], ",", 
      RowBox[{"0.0", "Degree"}]}], "]"}]}], "]"}], "//", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.527226820665777*^9, 3.527226848526991*^9}, {
  3.527226900318882*^9, 3.527226912657721*^9}, {3.527227713600465*^9, 
  3.52722771527182*^9}, {3.527230224149463*^9, 3.527230257166054*^9}, {
  3.527230500544326*^9, 3.527230502343074*^9}},
 CellLabel->"In[11]:=",
 CellID->942966388],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"2.870280249540307`", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "2.8697197504596934`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.527226915729116*^9, {3.527227707328366*^9, 3.527227715907942*^9}, {
   3.527230228224677*^9, 3.527230257841566*^9}, 3.527230502610843*^9},
 CellLabel->"Out[11]//MatrixForm=",
 CellID->219074309]
}, Open  ]],

Cell[TextData[{
 "The hamiltonian of an NV center pointing to the ",
 Cell[BoxData[
  RowBox[{"[", 
   RowBox[{"1", ",", "1", ",", 
    RowBox[{"-", "1"}]}], "]"}]], "InlineFormula",
  FormatType->"StandardForm"],
 " direction is"
}], "ExampleText",
 CellChangeTimes->{{3.527230529861026*^9, 3.527230561529567*^9}, {
  3.527230656623464*^9, 3.527230665383545*^9}},
 CellID->1146578649],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"ExampleHami", "=", 
   RowBox[{"Chop", "[", 
    RowBox[{
     FractionBox["1", 
      RowBox[{"2", "\[Pi]", "*", 
       SuperscriptBox["10", "6"]}]], 
     RowBox[{"NVelectronSpin", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "1", ",", 
          RowBox[{"-", "1"}]}], "}"}], "/", 
        SqrtBox["3"]}], ",", "0.0001", ",", 
       RowBox[{"0.0", "Degree"}], ",", 
       RowBox[{"0.0", "Degree"}]}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "ExampleHami", "]"}]}], "Input",
 CellChangeTimes->{{3.527226820665777*^9, 3.527226848526991*^9}, {
  3.527226900318882*^9, 3.527226912657721*^9}, {3.527227713600465*^9, 
  3.52722771527182*^9}, {3.527230224149463*^9, 3.527230257166054*^9}, {
  3.527230500544326*^9, 3.527230502343074*^9}, {3.527230581790886*^9, 
  3.527230621766831*^9}, {3.527230693262298*^9, 3.527230699382713*^9}, {
  3.527231114437133*^9, 3.527231139958207*^9}, {3.527232856217285*^9, 
  3.527232875810055*^9}},
 CellLabel->"In[88]:=",
 CellID->643352604],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1.5972469398475129`", 
      RowBox[{"0.`", "\[VeryThinSpace]", "-", 
       RowBox[{"0.6377777777777778`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"-", "1.2755555555555556`"}]},
     {
      RowBox[{"0.`", "\[VeryThinSpace]", "+", 
       RowBox[{"0.6377777777777778`", " ", "\[ImaginaryI]"}]}], 
      "2.551111111111111`", 
      RowBox[{"0.`", "\[VeryThinSpace]", "+", 
       RowBox[{"0.6377777777777778`", " ", "\[ImaginaryI]"}]}]},
     {
      RowBox[{"-", "1.2755555555555556`"}], 
      RowBox[{"0.`", "\[VeryThinSpace]", "-", 
       RowBox[{"0.6377777777777778`", " ", "\[ImaginaryI]"}]}], 
      "1.5916419490413756`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.527230622597891*^9, 3.527230700910757*^9, {3.527231117206759*^9, 
   3.527231140345114*^9}, {3.527232856969825*^9, 3.527232876731293*^9}},
 CellLabel->"Out[89]//MatrixForm=",
 CellID->4978637]
}, Open  ]],

Cell["\<\
with the eigenvalues and eigenvectores \
\>", "ExampleText",
 CellChangeTimes->{{3.527230631945862*^9, 3.527230677114763*^9}},
 CellID->1835222641],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"ExampleValue", ",", 
     RowBox[{"{", 
      RowBox[{"ExampleV1", ",", "ExampleV2", ",", "ExampleV3"}], "}"}]}], 
    "}"}], "=", 
   RowBox[{"Eigensystem", "[", "ExampleHami", "]"}]}], 
  ";"}], "\[IndentingNewLine]", "ExampleValue"}], "Input",
 CellChangeTimes->{{3.527230681925507*^9, 3.52723082035624*^9}},
 CellLabel->"In[80]:=",
 CellID->127628706],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"2.870935381786477`", ",", "2.869067050725999`", ",", 
   RowBox[{"-", "2.432512472338999`*^-6"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.527230739589902*^9, 3.527230821251683*^9}, {
   3.52723111976637*^9, 3.527231142396559*^9}, 3.527232860178031*^9},
 CellLabel->"Out[81]=",
 CellID->1525773277]
}, Open  ]],

Cell[TextData[{
 "The mean spin values of these three eigenstates are (in crystal frame ",
 Cell[BoxData[
  RowBox[{"$Xdir", ",", "$Ydir", ",", "$Zdir"}]], "InlineFormula",
  FormatType->"StandardForm"],
 "):"
}], "ExampleText",
 CellChangeTimes->{{3.527231297713742*^9, 3.527231325210964*^9}, {
  3.527231375771287*^9, 3.527231405980507*^9}, {3.527231535091471*^9, 
  3.527231535202325*^9}, {3.527232725819515*^9, 3.527232761172965*^9}},
 CellID->307462893],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"ExampleStateP1", "=", 
  RowBox[{"Chop", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Conjugate", "[", "ExampleV1", "]"}], ".", "#", ".", 
       "ExampleV1"}], ")"}], "&"}], "/@", 
    RowBox[{"{", 
     RowBox[{"SPIN1x", ",", "SPIN1y", ",", "SPIN1z"}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"ExampleStateM1", "=", "\[IndentingNewLine]", 
  RowBox[{"Chop", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Conjugate", "[", "ExampleV2", "]"}], ".", "#", ".", 
       "ExampleV2"}], ")"}], "&"}], "/@", 
    RowBox[{"{", 
     RowBox[{"SPIN1x", ",", "SPIN1y", ",", "SPIN1z"}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"ExampleState0", "=", 
  RowBox[{"Chop", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Conjugate", "[", "ExampleV3", "]"}], ".", "#", ".", 
       "ExampleV3"}], ")"}], "&"}], "/@", 
    RowBox[{"{", 
     RowBox[{"SPIN1x", ",", "SPIN1y", ",", "SPIN1z"}], "}"}]}], 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.527230837808291*^9, 3.52723100511271*^9}, {
  3.527231192651167*^9, 3.527231285259898*^9}},
 CellLabel->"In[82]:=",
 CellID->1797514653],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "0.9425006662170906`", ",", "0.33420173736955844`"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.527230890978433*^9, 3.527230899146292*^9}, {
   3.527230962234843*^9, 3.527231005769715*^9}, {3.527231120616028*^9, 
   3.527231143151893*^9}, {3.52723121333603*^9, 3.52723122316457*^9}, 
   3.527231286111888*^9, 3.527232867315335*^9},
 CellLabel->"Out[82]=",
 CellID->790870392],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", 
   RowBox[{"-", "0.9431144203556716`"}], ",", 
   RowBox[{"-", "0.3324657768608146`"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.527230890978433*^9, 3.527230899146292*^9}, {
   3.527230962234843*^9, 3.527231005769715*^9}, {3.527231120616028*^9, 
   3.527231143151893*^9}, {3.52723121333603*^9, 3.52723122316457*^9}, 
   3.527231286111888*^9, 3.527232867317071*^9},
 CellLabel->"Out[83]=",
 CellID->1578149546],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "0.0006137541385810502`", ",", 
   RowBox[{"-", "0.0017359605087437248`"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.527230890978433*^9, 3.527230899146292*^9}, {
   3.527230962234843*^9, 3.527231005769715*^9}, {3.527231120616028*^9, 
   3.527231143151893*^9}, {3.52723121333603*^9, 3.52723122316457*^9}, 
   3.527231286111888*^9, 3.527232867318679*^9},
 CellLabel->"Out[84]=",
 CellID->608955345]
}, Open  ]],

Cell["\<\
which can be convert to the natural coordinate system as\
\>", "ExampleText",
 CellChangeTimes->{{3.527231552238772*^9, 3.527231575827503*^9}},
 CellID->1650317637],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"CrystalFrame2NaturalFrame", "[", "ExampleStateP1", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"CrystalFrame2NaturalFrame", "[", "ExampleStateM1", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"CrystalFrame2NaturalFrame", "[", "ExampleState0", "]"}]}], "Input",
 CellChangeTimes->{{3.527231627740217*^9, 3.52723166444067*^9}},
 CellLabel->"In[85]:=",
 CellID->270994035],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.5777257487781344`", ",", "0.5777257487781344`", ",", 
   RowBox[{"-", "0.5765971084544033`"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.527231633565986*^9, 3.527231664927425*^9}, 
   3.52723287216512*^9},
 CellLabel->"Out[85]=",
 CellID->1294617107],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "0.5769740555889494`"}], ",", 
   RowBox[{"-", "0.5769740555889494`"}], ",", "0.5781004938771106`"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.527231633565986*^9, 3.527231664927425*^9}, 
   3.527232872166293*^9},
 CellLabel->"Out[86]=",
 CellID->1139101991],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "0.0007516931891849147`"}], ",", 
   RowBox[{"-", "0.0007516931891849147`"}], ",", 
   RowBox[{"-", "0.0015033854227074184`"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.527231633565986*^9, 3.527231664927425*^9}, 
   3.527232872167427*^9},
 CellLabel->"Out[87]=",
 CellID->2026881477]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968],

Cell[BoxData[
 InterpretationBox[Cell["Scope", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265],

Cell[BoxData[
 InterpretationBox[Cell["Generalizations & Extensions", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell["Options", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2061341341],

Cell[BoxData[
 InterpretationBox[Cell["XXXX", "ExampleSubsection"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1757724783],

Cell[BoxData[
 InterpretationBox[Cell["XXXX", "ExampleSubsection"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1295379749]
}, Closed]],

Cell[BoxData[
 InterpretationBox[Cell["Applications", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157],

Cell[BoxData[
 InterpretationBox[Cell["Properties & Relations", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759],

Cell[BoxData[
 InterpretationBox[Cell["Possible Issues", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373],

Cell[BoxData[
 InterpretationBox[Cell["Interactive Examples", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318],

Cell[BoxData[
 InterpretationBox[Cell["Neat Examples", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740]
}, Open  ]]
},
WindowSize->{1854, 1056},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
CellContext->"Global`",
FrontEndVersion->"8.0 for Linux x86 (32-bit) (November 7, 2010)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "UTF-8"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ExtendedExamples"->{
  Cell[15196, 540, 100, 2, 55, "ExtendedExamplesSection",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ExtendedExamples", 17110, 610}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 325, 14, 24, "History",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[907, 38, 68, 1, 29, "CategorizationSection",
 CellID->1122911449],
Cell[978, 41, 79, 2, 70, "Categorization",
 CellID->686433507],
Cell[1060, 45, 79, 2, 70, "Categorization",
 CellID->605800465],
Cell[1142, 49, 76, 2, 70, "Categorization",
 CellID->468444828],
Cell[1221, 53, 70, 1, 70, "Categorization"]
}, Closed]],
Cell[CellGroupData[{
Cell[1328, 59, 55, 1, 19, "KeywordsSection",
 CellID->477174294],
Cell[1386, 62, 45, 1, 70, "Keywords",
 CellID->1164421360]
}, Closed]],
Cell[CellGroupData[{
Cell[1468, 68, 65, 1, 19, "TemplatesSection",
 CellID->1872225408],
Cell[1536, 71, 94, 2, 70, "Template",
 CellID->1562036412],
Cell[1633, 75, 82, 2, 70, "Template",
 CellID->158391909],
Cell[1718, 79, 81, 2, 70, "Template",
 CellID->1360575930],
Cell[1802, 83, 82, 2, 70, "Template",
 CellID->793782254]
}, Closed]],
Cell[CellGroupData[{
Cell[1921, 90, 53, 1, 19, "DetailsSection",
 CellID->307771771],
Cell[1977, 93, 63, 2, 70, "Details",
 CellID->670882175],
Cell[2043, 97, 69, 2, 70, "Details",
 CellID->350963985],
Cell[2115, 101, 64, 2, 70, "Details",
 CellID->8391405],
Cell[2182, 105, 69, 2, 70, "Details",
 CellID->3610269],
Cell[2254, 109, 61, 2, 70, "Details",
 CellID->401364205],
Cell[2318, 113, 61, 2, 70, "Details",
 CellID->350204745],
Cell[2382, 117, 63, 2, 70, "Details",
 CellID->732958810],
Cell[2448, 121, 78, 2, 70, "Details",
 CellID->222905350],
Cell[2529, 125, 67, 2, 70, "Details",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[2633, 132, 57, 1, 62, "ObjectName",
 CellID->1224892054],
Cell[2693, 135, 606, 18, 92, "Usage",
 CellID->982511436],
Cell[3302, 155, 117, 2, 26, "Notes",
 CellID->1067943069]
}, Open  ]],
Cell[CellGroupData[{
Cell[3456, 162, 57, 1, 43, "TutorialsSection",
 CellID->250839057],
Cell[3516, 165, 45, 1, 16, "Tutorials",
 CellID->341631938]
}, Open  ]],
Cell[CellGroupData[{
Cell[3598, 171, 83, 1, 30, "RelatedDemonstrationsSection",
 CellID->1268215905],
Cell[3684, 174, 58, 1, 16, "RelatedDemonstrations",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[3779, 180, 65, 1, 30, "RelatedLinksSection",
 CellID->1584193535],
Cell[3847, 183, 49, 1, 16, "RelatedLinks",
 CellID->1038487239]
}, Open  ]],
Cell[CellGroupData[{
Cell[3933, 189, 55, 1, 30, "SeeAlsoSection",
 CellID->1255426704],
Cell[3991, 192, 43, 1, 16, "SeeAlso",
 CellID->929782353]
}, Open  ]],
Cell[CellGroupData[{
Cell[4071, 198, 57, 1, 30, "MoreAboutSection",
 CellID->38303248],
Cell[4131, 201, 46, 1, 16, "MoreAbout",
 CellID->1665078683]
}, Open  ]],
Cell[CellGroupData[{
Cell[4214, 207, 356, 11, 69, "PrimaryExamplesSection",
 CellID->880084151],
Cell[4573, 220, 401, 12, 23, "ExampleText",
 CellID->8764],
Cell[CellGroupData[{
Cell[4999, 236, 765, 21, 84, "Input",
 CellID->942966388],
Cell[5767, 259, 871, 23, 55, "Output",
 CellID->219074309]
}, Open  ]],
Cell[6653, 285, 385, 11, 23, "ExampleText",
 CellID->1146578649],
Cell[CellGroupData[{
Cell[7063, 300, 1090, 27, 124, "Input",
 CellID->643352604],
Cell[8156, 329, 1409, 35, 55, "Output",
 CellID->4978637]
}, Open  ]],
Cell[9580, 367, 157, 4, 21, "ExampleText",
 CellID->1835222641],
Cell[CellGroupData[{
Cell[9762, 375, 421, 12, 65, "Input",
 CellID->127628706],
Cell[10186, 389, 339, 7, 28, "Output",
 CellID->1525773277]
}, Open  ]],
Cell[10540, 399, 458, 10, 39, "ExampleText",
 CellID->307462893],
Cell[CellGroupData[{
Cell[11023, 413, 1223, 37, 179, "Input",
 CellID->1797514653],
Cell[12249, 452, 425, 9, 25, "Output",
 CellID->790870392],
Cell[12677, 463, 460, 10, 25, "Output",
 CellID->1578149546],
Cell[13140, 475, 446, 9, 25, "Output",
 CellID->608955345]
}, Open  ]],
Cell[13601, 487, 174, 4, 21, "ExampleText",
 CellID->1650317637],
Cell[CellGroupData[{
Cell[13800, 495, 391, 8, 65, "Input",
 CellID->270994035],
Cell[14194, 505, 292, 7, 25, "Output",
 CellID->1294617107],
Cell[14489, 514, 315, 9, 25, "Output",
 CellID->1139101991],
Cell[14807, 525, 340, 9, 25, "Output",
 CellID->2026881477]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[15196, 540, 100, 2, 55, "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[15299, 544, 125, 3, 33, "ExampleSection",
 CellID->1293636265],
Cell[15427, 549, 148, 3, 21, "ExampleSection",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[15600, 556, 127, 3, 21, "ExampleSection",
 CellID->2061341341],
Cell[15730, 561, 130, 3, 70, "ExampleSubsection",
 CellID->1757724783],
Cell[15863, 566, 130, 3, 70, "ExampleSubsection",
 CellID->1295379749]
}, Closed]],
Cell[16008, 572, 131, 3, 21, "ExampleSection",
 CellID->258228157],
Cell[16142, 577, 142, 3, 21, "ExampleSection",
 CellID->2123667759],
Cell[16287, 582, 135, 3, 21, "ExampleSection",
 CellID->1305812373],
Cell[16425, 587, 140, 3, 21, "ExampleSection",
 CellID->1653164318],
Cell[16568, 592, 132, 3, 21, "ExampleSection",
 CellID->589267740]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
